home *** CD-ROM | disk | FTP | other *** search
/ Fun Fonts Plus / Fun Fonts Plus.iso / persprop / install.dat < prev    next >
Encoding:
INSTALL Professional project  |  1996-06-09  |  3.8 KB  |  148 lines
  1. /*
  2.  * INSTALL.DAT
  3.  * Project: Personal Property
  4.  * Version: 1.00
  5. */
  6.  
  7. @DefineProject
  8.     @Name = "Personal Property"
  9.     @Version = "1.00"
  10.  
  11.     @Subdir = "\\PERSPROP"
  12.     @OutDrive = Z
  13. @EndProject
  14.  
  15. @DefineVars
  16.     @Qstring @PkgType   = "BOX"
  17.     @Integer @Blue       = @RGB(0,0,255)             //DEFINE COLOR BLUE
  18.     @Integer @Black      = @RGB(0,0,0)               //DEFINE COLOR BLACK
  19.  
  20. @EndVars
  21. @PkgType = @GetINI("COSMI CDSETUP", "PkgMethod")
  22.  
  23.  
  24.  
  25. @BackgroundMode(3,@Blue,@Black)
  26. @Display
  27.     @Cls
  28.  
  29.     Congratulations on your purchase of @Name!
  30.     
  31.     This program will now install @Name 
  32.     to your hard disk drive and verify the integrity
  33.     of the CD-ROM disk. You may press the [Esc] key
  34.     at any time to abort the installation.
  35.  
  36.  
  37.     @Pause
  38. @EndDisplay
  39. @GetOutDrive
  40.     @Cls
  41.     Select the HARD disk drive on which you wish to install your
  42.     new copy of @Name.
  43.     ie. "Drive C:"
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.     
  55.     @Suppress(0, 1)
  56.     Use the [CURSOR] to highlight a drive letter. Press [ENTER]
  57.     to select that drive.
  58.     
  59.  
  60. @EndOutDrive
  61.  
  62.  
  63. @GetSubdir
  64.     @Cls
  65.     INSTALL is now suggesting a name for a program destination subdirectory 
  66.     to which files will be copied. Press [ENTER] to use @OutDrive:@SubDir,
  67.     or type "\" and a "path", where "path" is the subdirectory you want INSTALL
  68.     to use.
  69.  
  70.     
  71.  
  72. @Prompt = "Which subdirectory ([Enter] = @Subdir) ?"
  73. @EndSubdir
  74.  
  75. @DefineVars
  76.     @Qstring @Item1 = "@OutDrive:\\@Subdir\\persprop.exe, Personal Property,
  77.                @OutDrive:\\@Subdir\\persprop.exe"
  78.     @Qstring @Item2 = "@OutDrive:\\@Subdir\\persprop.hlp, Personal Property Help,
  79.                @OutDrive:\\@Subdir\\persprop.hlp"
  80.     @Qstring @Item3 = "@OutDrive:\\@Subdir\\persprop.wri, Personal Property Manual,
  81.                @OutDrive:\\@Subdir\\persprop.wri"
  82.     @Qstring @Item4 = "@OutDrive:\\@Subdir\\slot.exe, Slot Machine,
  83.                @OutDrive:\\@Subdir\\slot.exe"
  84.     @Qstring @Item5 = "@OutDrive:\\@Subdir\\slot.hlp, Slot Machine Help,
  85.                @OutDrive:\\@Subdir\\slot.hlp"
  86.     @Qstring @Item6 = "@OutDrive:\\@Subdir\\slot.wri, Slot Machine Manual,
  87.                @OutDrive:\\@Subdir\\slot.wri"
  88. @EndVars
  89.  
  90. @DefineDisk
  91.     @Label = "PERSPROP  Disk #1"
  92.     @BeginLib 331.001
  93.         @F PERSPROP.DAT @S 665 @O PERSPROP.DAT
  94.         @F PERSPROP.HLP @S 39443 @O PERSPROP.HLP
  95.         @F PERSPROP.GRP @S 1615 @O PERSPROP.GRP
  96.         @F SETUP1.EXE @S 27153 @O SETUP1.EXE
  97.         @F VER.DLL @S 9696 @O VER.DLL
  98.         @F CMDIALOG.VBX @S 18688 @O CMDIALOG.VBX
  99.         @F SETUPKIT.DLL @S 7008 @O SETUPKIT.DLL
  100.         @F VBRUN300.DLL @S 398416 @O VBRUN300.DLL
  101.         @F DDEML.DLL @S 39424 @O DDEML.DLL
  102.         @F THREED.VBX @S 64432 @O THREED.VBX
  103.         @F MHGLBX.VBX @S 117344 @O MHGLBX.VBX
  104.         @F PICCLIP.VBX @S 15840 @O PICCLIP.VBX
  105.         @F COMMDLG.DLL @S 89248 @O COMMDLG.DLL
  106.         @F PERSPROP.EXE @S 204822 @O PERSPROP.EXE
  107.     @EndLib
  108.  
  109. @EndDisk
  110.  
  111. @Finish
  112. @Cls
  113.     @Copy("persprop.wri", "@OutDrive:\\@Subdir\\*.*")
  114. @If("@PkgType" == "JEWEL")
  115.     @Copy("slot.exe", "@OutDrive:\\@Subdir\\*.exe")
  116.     @Copy("slot.hlp", "@OutDrive:\\@Subdir\\*.*")
  117.     @Copy("slot.wri", "@OutDrive:\\@Subdir\\*.*")
  118.     @ProgramManager("[CreateGroup(COSMI @Name)]
  119.          [AddItem(@Item1, 0)][AddItem(@Item2, 0)]
  120.          [AddItem(@Item3, 0)][AddItem(@Item4, 0)]
  121.          [AddItem(@Item5, 0)][AddItem(@Item6, 0)]")
  122. @Else
  123.     @Copy("slot.exe", "@OutDrive:\\@Subdir\\*.exe")
  124.     @Copy("slot.hlp", "@OutDrive:\\@Subdir\\*.*")
  125.     @Copy("slot.wri", "@OutDrive:\\@Subdir\\*.*")
  126.     @ProgramManager("[CreateGroup(COSMI @Name)]
  127.          [AddItem(@Item1, 0)][AddItem(@Item2, 0)]
  128.          [AddItem(@Item3, 0)][AddItem(@Item4, 0)]
  129.          [AddItem(@Item5, 0)][AddItem(@Item6, 0)]")
  130. @EndIf
  131.     @ChDrive @OutDrive
  132.     @ChDir "@SubDir"
  133.     //delete files from cosmitmp.dir and remove that dir
  134.     @Delete("@OutDrive:\\cosmitmp.dir\\*.*")
  135.     @RmDir("@OutDrive:\\cosmitmp.dir")
  136.  
  137. @Cls
  138.     Installation of @Name is now finished.
  139.     A New application group has been created titled COSMI.
  140.  
  141.  
  142.  
  143.  
  144.     @Pause
  145. @EndFinish
  146.  
  147. /* end-of-file */
  148.